home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / findwin.raz < prev    next >
Encoding:
Text File  |  1994-09-06  |  1.2 KB  |  43 lines
  1. /** $VER: FindWin.raz 1.0 (14.5.94)
  2.  **
  3.  ** Met en avant la fenêtre qui contient le fichier dont le
  4.  ** début du nom est donné en paramètre.
  5.  ** Exemple :
  6.  **             AZur:Rexx/FindWin.raz Toto
  7.  **/
  8.  
  9. OPTIONS RESULTS
  10.  
  11. PARSE ARG name line
  12.  
  13. ports = SHOW("p") /* Commande ARexx : liste des ports dans le Système */
  14. namelen = LENGTH(name)
  15.  
  16. DO FOREVER
  17.     PARSE VAR ports portname ' ' ports      /* on prend chaque nom de port */
  18.     IF (portname == '') THEN LEAVE
  19.     IF LEFT(portname,4) = "AZUR" THEN DO    /* est-ce une tâche AZur? */
  20.         ADDRESS VALUE portname              /* on l'adresse par défaut */
  21.         GetFileInfo                         /* nom du fichier édité? */
  22.         PARSE VAR RESULT . " " . " " filename   /* extraction du nom */
  23.         filename = STRIP(filename,,'"')
  24.         IF LEFT(UPPER(filename),namelen) = UPPER(name) THEN DO
  25.             Win2Front
  26.             Cursor line
  27.             EXIT
  28.             END
  29.         END
  30. END
  31.  
  32. /* Si on arrive ici : la fenêtre n'est pas trouvée
  33.  *
  34.  * On peut alors par exemple décider de charger le
  35.  * fichier dans une nouvelle fenêtre :
  36.  *
  37.  * ADDRESS AZURMAST File2NewWin "SRC:"||name
  38.  * IF (RC > 0) THEN DO SAY AZURMAST.LASTERROR; EXIT; END
  39.  * portname = RESULT
  40.  * ADDRESS VALUE portname Cursor line
  41.  * etc...
  42.  */
  43.